20000 . RESEQUENCE BY               RON SCHWEITZER
20010 N=0;@(0)=%(-24576)
20020 for A=-24574to A+1796-SZ;if %(A)div 256#13next A
20030 N=N+1;A=A+2;@(N)=%(A);next A
20040 input ".START NO"O,". SPACING"G;:print 
20050 print ;print ;print ".FROM line ",#0,O," to line ",(N-1)mul G+O," step ",G;print ;print 
20060 M=0;gosub 20120;for A=-24574to A+1796-SZ;TV=%(A);B=%(A)div 256;if (RM=13)+(RM=-243)gosub 20120
20070 if (RM=110)+(RM=111)gosub 20090
20080 next A;print ;print ;print ":return ;NT=0";:return ;NT=0;STOP
20090 T=0;for B=Ato A+5;if (%(B)div 256-53)div 6=0T=Tmul 10+RM+5;A=A+1;next B
20100 for B=0to N;if @(B)=Tprint #0,Bmul G+O,;return 
20110 next B;return 
20120 print #4,Mmul G+O,;TV=32;M=M+1;A=A+2;return 
>